|
800
|
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a snapshot
with AxGantt1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
set_HTMLPicture('p1','c:\exontrol\images\card.png');
set_HTMLPicture('p2','c:\exontrol\images\sun.png');
AutoDrag := EXGANTTLib.AutoDragEnum.exAutoDragCopySnapShot;
LinesAtRoot := EXGANTTLib.LinesAtRootEnum.exNoLinesAtRoot;
HasLines := EXGANTTLib.HierarchyLineEnum.exThinLine;
ShowFocusRect := False;
DefaultItemHeight := 26;
Columns.Add('Task');
with Chart do
begin
ShowNonworkingDates := False;
FirstVisibleDate := '12/29/2000';
PaneWidth[False] := 96;
LevelCount := 2;
with Bars.Item['Task'] do
begin
Color := $1000000;
Height := 18;
end;
end;
with Items do
begin
h := AddItem('<img>p1:32</img>Group 1');
CellCaptionFormat[TObject(h),TObject(0)] := EXGANTTLib.CaptionFormatEnum.exHTML;
ItemDivider[h] := 0;
ItemBold[h] := True;
h1 := InsertItem(h,Nil,'Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
h2 := InsertItem(h,Nil,'Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
AddLink('L1',h1,'K1',h2,'K2');
Link['L1',EXGANTTLib.LinkPropertyEnum.exLinkText] := 'L1';
h3 := InsertItem(h,Nil,'Task 3');
AddBar(h3,'Task','1/8/2001','1/10/2001','K3',Nil);
AddLink('L2',h2,'K2',h3,'K3');
Link['L2',EXGANTTLib.LinkPropertyEnum.exLinkText] := 'L2';
h := AddItem('<img>p2:32</img>Group 2');
CellCaptionFormat[TObject(h),TObject(0)] := EXGANTTLib.CaptionFormatEnum.exHTML;
ItemBold[h] := True;
ItemDivider[h] := 0;
h1 := InsertItem(h,Nil,'Task');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
ExpandItem[0] := True;
end;
EndUpdate();
end
|
|
799
|
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a image
with AxGantt1 do
begin
BeginUpdate();
set_HTMLPicture('p1','c:\exontrol\images\card.png');
set_HTMLPicture('p2','c:\exontrol\images\sun.png');
Chart.PaneWidth[True] := 0;
var_HTMLPicture := get_HTMLPicture('aka1');
HeaderHeight := 24;
DefaultItemHeight := 48;
DrawGridLines := EXGANTTLib.GridLinesEnum.exRowLines;
GridLineColor := Color.FromArgb(240,240,240);
SelBackMode := EXGANTTLib.BackModeEnum.exTransparent;
ColumnAutoResize := False;
ContinueColumnScroll := False;
rs := (ComObj.CreateComObject(ComObj.ProgIDToClassID('ADOR.Recordset')) as ADODB.Recordset);
with rs do
begin
Open('Orders','Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGantt\Sample\Access\SAMPLE.MDB',3,3,Nil);
end;
DataSource := (rs as ADODB.Recordset);
Columns.Item[TObject(0)].Def[EXGANTTLib.DefColumnEnum.exCellCaptionFormat] := TObject(1);
Columns.Item[TObject(0)].FormatColumn := 'value + ` <img>p` + (1 + (value mod 3 ) ) + `</img>`';
Columns.Item[TObject(0)].Width := 112;
Columns.Item[TObject(1)].Def[EXGANTTLib.DefColumnEnum.exCellHasCheckBox] := TObject(1);
Columns.Item[TObject(2)].LevelKey := '1';
Columns.Item[TObject(3)].LevelKey := '1';
Columns.Item[TObject(4)].LevelKey := '1';
AutoDrag := EXGANTTLib.AutoDragEnum.exAutoDragCopyImage;
SingleSel := False;
with Items do
begin
h := ItemByIndex[1];
SelectItem[h] := True;
h := ItemByIndex[2];
SelectItem[h] := True;
h := ItemByIndex[3];
SelectItem[h] := True;
LockedItemCount[EXGANTTLib.VAlignmentEnum.BottomAlignment] := 1;
h := LockedItem[EXGANTTLib.VAlignmentEnum.BottomAlignment,0];
CellCaption[TObject(h),TObject(1)] := '<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, ...';
CellSingleLine[TObject(h),TObject(1)] := EXGANTTLib.CellSingleLineEnum.exCaptionWordWrap;
CellCaptionFormat[TObject(h),TObject(1)] := EXGANTTLib.CaptionFormatEnum.exHTML;
CellHAlignment[TObject(h),TObject(1)] := EXGANTTLib.AlignmentEnum.CenterAlignment;
ItemDivider[h] := 1;
ItemDividerLineAlignment[h] := EXGANTTLib.DividerAlignmentEnum.DividerTop;
end;
EndUpdate();
end
|
|
798
|
How can copy and paste the selection to Microsoft Word, Excel or any OLE compliant application, as a text
with AxGantt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
ColumnAutoResize := False;
ContinueColumnScroll := False;
rs := (ComObj.CreateComObject(ComObj.ProgIDToClassID('ADOR.Recordset')) as ADODB.Recordset);
with rs do
begin
Open('Orders','Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGantt\Sample\Access\SAMPLE.MDB',3,3,Nil);
end;
DataSource := (rs as ADODB.Recordset);
Columns.Item[TObject(2)].LevelKey := '1';
Columns.Item[TObject(3)].LevelKey := '1';
Columns.Item[TObject(4)].LevelKey := '1';
AutoDrag := EXGANTTLib.AutoDragEnum.exAutoDragCopyText;
SingleSel := False;
with Items do
begin
h := ItemByIndex[1];
SelectItem[h] := True;
h := ItemByIndex[3];
SelectItem[h] := True;
h := ItemByIndex[4];
SelectItem[h] := True;
h := ItemByIndex[5];
SelectItem[h] := True;
LockedItemCount[EXGANTTLib.VAlignmentEnum.BottomAlignment] := 1;
h := LockedItem[EXGANTTLib.VAlignmentEnum.BottomAlignment,0];
CellCaption[TObject(h),TObject(0)] := '<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, Excel, ...';
CellSingleLine[TObject(h),TObject(0)] := EXGANTTLib.CellSingleLineEnum.exCaptionWordWrap;
CellCaptionFormat[TObject(h),TObject(0)] := EXGANTTLib.CaptionFormatEnum.exHTML;
CellHAlignment[TObject(h),TObject(0)] := EXGANTTLib.AlignmentEnum.CenterAlignment;
ItemDivider[h] := 0;
ItemDividerLineAlignment[h] := EXGANTTLib.DividerAlignmentEnum.DividerTop;
end;
EndUpdate();
end
|
|
797
|
Is it possible to change the indentation during the drag and drop
with AxGantt1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
AutoDrag := EXGANTTLib.AutoDragEnum.exAutoDragPositionAny;
LinesAtRoot := EXGANTTLib.LinesAtRootEnum.exNoLinesAtRoot;
HasLines := EXGANTTLib.HierarchyLineEnum.exSolidLine;
HasButtons := EXGANTTLib.ExpandButtonEnum.exWPlus;
ShowFocusRect := False;
SelBackMode := EXGANTTLib.BackModeEnum.exTransparent;
Columns.Add('Task');
with Chart do
begin
ShowNonworkingDates := False;
FirstVisibleDate := '12/29/2000';
PaneWidth[False] := 128;
LevelCount := 2;
Bars.Item['Task'].Color := $1000000;
end;
with Items do
begin
h := AddItem('Group 1');
ItemBold[h] := True;
ItemDivider[h] := 0;
h1 := InsertItem(h,Nil,'Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
h2 := InsertItem(h1,Nil,'Task 2');
AddBar(h2,'Task','1/15/2001','1/17/2001','K4',Nil);
h2 := InsertItem(h1,Nil,'Task 3');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
AddLink('L1',h1,'K1',h2,'K2');
Link['L1',EXGANTTLib.LinkPropertyEnum.exLinkText] := 'L1';
h3 := InsertItem(h,Nil,'Task 3');
AddBar(h3,'Task','1/8/2001','1/10/2001','K3',Nil);
AddLink('L2',h2,'K2',h3,'K3');
Link['L2',EXGANTTLib.LinkPropertyEnum.exLinkText] := 'L2';
ExpandItem[h] := True;
ExpandItem[h1] := True;
h := AddItem('Group 2');
ItemBold[h] := True;
ItemDivider[h] := 0;
LockedItemCount[EXGANTTLib.VAlignmentEnum.BottomAlignment] := 1;
h := LockedItem[EXGANTTLib.VAlignmentEnum.BottomAlignment,0];
CellCaption[TObject(h),TObject(0)] := 'Click a row, and move by dragging <b>up, down</b> to change the row''s parent or <b>left,right</b> to increase or decrease the in' +
'dentation.';
CellSingleLine[TObject(h),TObject(0)] := EXGANTTLib.CellSingleLineEnum.exCaptionWordWrap;
CellCaptionFormat[TObject(h),TObject(0)] := EXGANTTLib.CaptionFormatEnum.exHTML;
end;
EndUpdate();
end
|
|
796
|
Is it possible to allow moving an item to another, but keeping its indentation
with AxGantt1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
AutoDrag := EXGANTTLib.AutoDragEnum.exAutoDragPositionKeepIndent;
LinesAtRoot := EXGANTTLib.LinesAtRootEnum.exNoLinesAtRoot;
HasLines := EXGANTTLib.HierarchyLineEnum.exThinLine;
ShowFocusRect := False;
Columns.Add('Task');
with Chart do
begin
ShowNonworkingDates := False;
FirstVisibleDate := '12/29/2000';
PaneWidth[False] := 96;
LevelCount := 2;
Bars.Item['Task'].Color := $1000000;
end;
with Items do
begin
h := AddItem('Group 1');
ItemDivider[h] := 0;
ItemBold[h] := True;
h1 := InsertItem(h,Nil,'Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
h2 := InsertItem(h,Nil,'Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
AddLink('L1',h1,'K1',h2,'K2');
Link['L1',EXGANTTLib.LinkPropertyEnum.exLinkText] := 'L1';
h3 := InsertItem(h,Nil,'Task 3');
AddBar(h3,'Task','1/8/2001','1/10/2001','K3',Nil);
AddLink('L2',h2,'K2',h3,'K3');
Link['L2',EXGANTTLib.LinkPropertyEnum.exLinkText] := 'L2';
ExpandItem[h] := True;
h := AddItem('Group 2');
ItemBold[h] := True;
ItemDivider[h] := 0;
end;
EndUpdate();
end
|
|
795
|
How can I change the row's position to another, by drag and drop. Is it possible
with AxGantt1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
AutoDrag := EXGANTTLib.AutoDragEnum.exAutoDragPosition;
Columns.Add('Task');
with Chart do
begin
ShowNonworkingDates := False;
FirstVisibleDate := '12/29/2000';
PaneWidth[False] := 64;
LevelCount := 2;
Bars.Item['Task'].Color := $1000000;
end;
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
AddLink('L1',h1,'K1',h2,'K2');
Link['L1',EXGANTTLib.LinkPropertyEnum.exLinkText] := 'L1';
h3 := AddItem('Task 3');
AddBar(h3,'Task','1/8/2001','1/10/2001','K3',Nil);
AddLink('L2',h2,'K2',h3,'K3');
Link['L2',EXGANTTLib.LinkPropertyEnum.exLinkText] := 'L2';
end;
EndUpdate();
end
|
|
794
|
Have seen the RenderType, but do not know what kind of values should I use
with AxGantt1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Columns.Add('Task');
(GetOcx() as EXGANTTLib.Gantt).BackColorHeader := $1000000;
with Chart do
begin
BackColorLevelHeader := $1000000;
FirstVisibleDate := '12/29/2000';
PaneWidth[False] := 64;
LevelCount := 2;
Bars.Item['Task'].Color := $1000000;
end;
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
AddLink('L1',h1,'K1',h2,'K2');
Link['L1',EXGANTTLib.LinkPropertyEnum.exLinkText] := 'L1';
h3 := AddItem('Task 3');
AddBar(h3,'Task','1/8/2001','1/10/2001','K3',Nil);
AddLink('L2',h2,'K2',h3,'K3');
Link['L2',EXGANTTLib.LinkPropertyEnum.exLinkText] := 'L2';
end;
VisualAppearance.RenderType := -2147483393;
EndUpdate();
end
|
|
793
|
I have several columns, but noticed that the filter is using AND between columns, but I need OR clause for filtering. Is it possible
with AxGantt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
LinesAtRoot := EXGANTTLib.LinesAtRootEnum.exLinesAtRoot;
with (Columns.Add('Item') as EXGANTTLib.Column) do
begin
DisplayFilterButton := True;
DisplayFilterPattern := False;
Filter := 'Child 1';
FilterType := EXGANTTLib.FilterTypeEnum.exFilter;
end;
with (Columns.Add('Date') as EXGANTTLib.Column) do
begin
DisplayFilterButton := True;
DisplayFilterPattern := False;
DisplayFilterDate := True;
FilterList := Integer(EXGANTTLib.FilterListEnum.exShowExclude) Or Integer(EXGANTTLib.FilterListEnum.exShowFocusItem) Or Integer(EXGANTTLib.FilterListEnum.exShowCheckBox) Or Integer(EXGANTTLib.FilterListEnum.exNoItems);
Filter := '12/28/2010';
FilterType := EXGANTTLib.FilterTypeEnum.exDate;
end;
FilterCriteria := '%0 or %1';
set_Description(EXGANTTLib.DescriptionTypeEnum.exFilterBarOr,'<font ;18><fgcolor=FF0000>or</fgcolor></font>');
set_Description(EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd,'<font ;18><fgcolor=FF0000>and</fgcolor></font>');
with Items do
begin
h := AddItem('Root 1');
CellCaption[TObject(InsertItem(h,Nil,'Child 1')),TObject(1)] := '12/27/2010';
CellCaption[TObject(InsertItem(h,Nil,'Child 2')),TObject(1)] := '12/28/2010';
ExpandItem[h] := True;
h := AddItem('Root 2');
CellCaption[TObject(InsertItem(h,Nil,'Child 1')),TObject(1)] := '12/29/2010';
CellCaption[TObject(InsertItem(h,Nil,'Child 2')),TObject(1)] := '12/30/2010';
end;
ApplyFilter();
EndUpdate();
end
|
|
792
|
Is it possible exclude the dates being selected in the drop down filter window
with AxGantt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
with (Columns.Add('Date') as EXGANTTLib.Column) do
begin
SortType := EXGANTTLib.SortTypeEnum.SortDate;
DisplayFilterButton := True;
DisplayFilterPattern := False;
DisplayFilterDate := True;
FilterList := Integer(EXGANTTLib.FilterListEnum.exShowExclude) Or Integer(EXGANTTLib.FilterListEnum.exShowFocusItem) Or Integer(EXGANTTLib.FilterListEnum.exShowCheckBox) Or Integer(EXGANTTLib.FilterListEnum.exNoItems);
end;
with Items do
begin
AddItem('12/27/2010');
AddItem('12/28/2010');
AddItem('12/29/2010');
AddItem('12/30/2010');
AddItem('12/31/2010');
end;
EndUpdate();
end
|
|
791
|
How can I display a calendar control inside the drop down filter window
with AxGantt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
with (Columns.Add('Date') as EXGANTTLib.Column) do
begin
SortType := EXGANTTLib.SortTypeEnum.SortDate;
DisplayFilterButton := True;
DisplayFilterPattern := False;
DisplayFilterDate := True;
FilterList := Integer(EXGANTTLib.FilterListEnum.exShowFocusItem) Or Integer(EXGANTTLib.FilterListEnum.exShowCheckBox) Or Integer(EXGANTTLib.FilterListEnum.exNoItems);
end;
with Items do
begin
AddItem('12/27/2010');
AddItem('12/28/2010');
AddItem('12/29/2010');
AddItem('12/30/2010');
AddItem('12/31/2010');
end;
EndUpdate();
end
|
|
790
|
Is it possible to include the dates as checkb-boxes in the drop down filter window
with AxGantt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
with (Columns.Add('Dates') as EXGANTTLib.Column) do
begin
SortType := EXGANTTLib.SortTypeEnum.SortDate;
DisplayFilterButton := True;
DisplayFilterPattern := True;
DisplayFilterDate := True;
FilterList := Integer(EXGANTTLib.FilterListEnum.exShowFocusItem) Or Integer(EXGANTTLib.FilterListEnum.exShowCheckBox);
Filter := 'to 12/27/2010';
FilterType := EXGANTTLib.FilterTypeEnum.exDate;
end;
with Items do
begin
AddItem('12/27/2010');
AddItem('12/28/2010');
AddItem('12/29/2010');
AddItem('12/30/2010');
AddItem('12/31/2010');
end;
ApplyFilter();
EndUpdate();
end
|
|
789
|
How can I filter items for dates before a specified date
with AxGantt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
with (Columns.Add('Dates') as EXGANTTLib.Column) do
begin
SortType := EXGANTTLib.SortTypeEnum.SortDate;
DisplayFilterButton := True;
DisplayFilterPattern := True;
DisplayFilterDate := True;
FilterList := Integer(EXGANTTLib.FilterListEnum.exShowFocusItem) Or Integer(EXGANTTLib.FilterListEnum.exNoItems);
Filter := 'to 12/27/2010';
FilterType := EXGANTTLib.FilterTypeEnum.exDate;
end;
with Items do
begin
AddItem('12/27/2010');
AddItem('12/28/2010');
AddItem('12/29/2010');
AddItem('12/30/2010');
AddItem('12/31/2010');
end;
ApplyFilter();
EndUpdate();
end
|
|
788
|
Is it possible to filter dates
with AxGantt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
with (Columns.Add('Dates') as EXGANTTLib.Column) do
begin
SortType := EXGANTTLib.SortTypeEnum.SortDate;
DisplayFilterButton := True;
DisplayFilterPattern := True;
DisplayFilterDate := True;
FilterList := Integer(EXGANTTLib.FilterListEnum.exShowFocusItem) Or Integer(EXGANTTLib.FilterListEnum.exNoItems);
end;
with Items do
begin
AddItem('12/27/2010');
AddItem('12/28/2010');
AddItem('12/29/2010');
AddItem('12/30/2010');
AddItem('12/31/2010');
end;
EndUpdate();
end
|
|
787
|
Is it possible to change the Exclude field name to something different, in the drop down filter window
with AxGantt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
LinesAtRoot := EXGANTTLib.LinesAtRootEnum.exLinesAtRoot;
set_Description(EXGANTTLib.DescriptionTypeEnum.exFilterBarExclude,'Leaving out');
with (Columns.Add('Items') as EXGANTTLib.Column) do
begin
DisplayFilterButton := True;
DisplayFilterPattern := False;
FilterList := Integer(EXGANTTLib.FilterListEnum.exShowExclude) Or Integer(EXGANTTLib.FilterListEnum.exShowFocusItem) Or Integer(EXGANTTLib.FilterListEnum.exShowCheckBox);
end;
with Items do
begin
h := AddItem('Root 1');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
h := AddItem('Root 2');
InsertItem(h,Nil,'Child 1');
end;
EndUpdate();
end
|
|
786
|
How can I display the Exclude field in the drop down filter window
with AxGantt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
LinesAtRoot := EXGANTTLib.LinesAtRootEnum.exLinesAtRoot;
with (Columns.Add('Items') as EXGANTTLib.Column) do
begin
DisplayFilterButton := True;
DisplayFilterPattern := False;
FilterList := Integer(EXGANTTLib.FilterListEnum.exShowExclude) Or Integer(EXGANTTLib.FilterListEnum.exShowFocusItem) Or Integer(EXGANTTLib.FilterListEnum.exShowCheckBox);
end;
with Items do
begin
h := AddItem('Root 1');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
h := AddItem('Root 2');
InsertItem(h,Nil,'Child 1');
end;
EndUpdate();
end
|
|
785
|
Is it possible to show and ensure the focused item from the control, in the drop down filter window
with AxGantt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
LinesAtRoot := EXGANTTLib.LinesAtRootEnum.exLinesAtRoot;
with (Columns.Add('Items') as EXGANTTLib.Column) do
begin
DisplayFilterButton := True;
DisplayFilterPattern := False;
FilterList := Integer(EXGANTTLib.FilterListEnum.exShowFocusItem) Or Integer(EXGANTTLib.FilterListEnum.exShowCheckBox);
end;
with Items do
begin
h := AddItem('Root 1');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
h := AddItem('Root 2');
InsertItem(h,Nil,'Child 1');
SelectItem[InsertItem(h,Nil,'Child 2')] := True;
ExpandItem[h] := True;
end;
EndUpdate();
end
|
|
784
|
Is it possible to show only blanks items with no listed items from the control
with AxGantt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
LinesAtRoot := EXGANTTLib.LinesAtRootEnum.exLinesAtRoot;
with (Columns.Add('Items') as EXGANTTLib.Column) do
begin
DisplayFilterButton := True;
DisplayFilterPattern := False;
FilterList := Integer(EXGANTTLib.FilterListEnum.exShowBlanks) Or Integer(EXGANTTLib.FilterListEnum.exNoItems);
end;
with Items do
begin
h := AddItem('Root 1');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
h := AddItem('Root 2');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
end;
EndUpdate();
end
|
|
783
|
How can I include the blanks items in the drop down filter window
with AxGantt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
LinesAtRoot := EXGANTTLib.LinesAtRootEnum.exLinesAtRoot;
with (Columns.Add('Items') as EXGANTTLib.Column) do
begin
DisplayFilterButton := True;
DisplayFilterPattern := False;
FilterList := Integer(EXGANTTLib.FilterListEnum.exShowBlanks) Or Integer(EXGANTTLib.FilterListEnum.exShowCheckBox);
end;
with Items do
begin
h := AddItem('Root 1');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
h := AddItem('Root 2');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
end;
EndUpdate();
end
|
|
782
|
How can I select multiple items in the drop down filter window, using check-boxes
with AxGantt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
LinesAtRoot := EXGANTTLib.LinesAtRootEnum.exLinesAtRoot;
with (Columns.Add('Items') as EXGANTTLib.Column) do
begin
DisplayFilterButton := True;
DisplayFilterPattern := False;
FilterList := EXGANTTLib.FilterListEnum.exShowCheckBox;
end;
with Items do
begin
h := AddItem('Root 1');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
h := AddItem('Root 2');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
end;
EndUpdate();
end
|
|
781
|
Is it possible to allow a single item being selected in the drop down filter window
with AxGantt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
LinesAtRoot := EXGANTTLib.LinesAtRootEnum.exLinesAtRoot;
with (Columns.Add('Items') as EXGANTTLib.Column) do
begin
DisplayFilterButton := True;
DisplayFilterPattern := False;
FilterList := EXGANTTLib.FilterListEnum.exSingleSel;
end;
with Items do
begin
h := AddItem('Root 1');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
h := AddItem('Root 2');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
end;
EndUpdate();
end
|
|
780
|
How can I display no (All) item in the drop down filter window
with AxGantt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
LinesAtRoot := EXGANTTLib.LinesAtRootEnum.exLinesAtRoot;
set_Description(EXGANTTLib.DescriptionTypeEnum.exFilterBarAll,'');
with (Columns.Add('Items') as EXGANTTLib.Column) do
begin
DisplayFilterButton := True;
DisplayFilterPattern := True;
FilterList := EXGANTTLib.FilterListEnum.exNoItems;
end;
with Items do
begin
h := AddItem('Root 1');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
h := AddItem('Root 2');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
end;
EndUpdate();
end
|
|
779
|
Is it possible to display no items in the drop down filter window, so only the pattern is visible
with AxGantt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
LinesAtRoot := EXGANTTLib.LinesAtRootEnum.exLinesAtRoot;
with (Columns.Add('Items') as EXGANTTLib.Column) do
begin
DisplayFilterButton := True;
DisplayFilterPattern := True;
FilterList := EXGANTTLib.FilterListEnum.exNoItems;
end;
with Items do
begin
h := AddItem('Root 1');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
h := AddItem('Root 2');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
end;
EndUpdate();
end
|
|
778
|
How can I show the child items with no identation
with AxGantt1 do
begin
LinesAtRoot := EXGANTTLib.LinesAtRootEnum.exGroupLinesOutside;
Indent := 12;
HasLines := EXGANTTLib.HierarchyLineEnum.exThinLine;
Columns.Add('Default');
with Items do
begin
h := AddItem('Root 1');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
InsertItem(h,Nil,'Child 3');
ExpandItem[h] := True;
h := AddItem('Root 2');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
InsertItem(h,Nil,'Child 3');
end;
end
|
|
777
|
Is there other ways of showing the hierarchy lines (exGroupLinesAtRoot)
with AxGantt1 do
begin
LinesAtRoot := EXGANTTLib.LinesAtRootEnum.exGroupLinesAtRoot;
Indent := 12;
Columns.Add('Default');
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
InsertItem(h,Nil,'Child 3');
ExpandItem[h] := True;
end;
end
|
|
776
|
Is there other ways of showing the hierarchy lines (exGroupLinesOutside)
with AxGantt1 do
begin
LinesAtRoot := EXGANTTLib.LinesAtRootEnum.exGroupLinesOutside;
Indent := 12;
Columns.Add('Default');
with Items do
begin
h := AddItem('Root 1');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
InsertItem(h,Nil,'Child 3');
ExpandItem[h] := True;
h := AddItem('Root 2');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
InsertItem(h,Nil,'Child 3');
end;
end
|
|
775
|
Is there other ways of showing the hierarchy lines (exGroupLinesInsideLeaf)
with AxGantt1 do
begin
LinesAtRoot := EXGANTTLib.LinesAtRootEnum.exGroupLinesInsideLeaf;
Indent := 12;
Columns.Add('Default');
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
InsertItem(h,Nil,'Child 3');
ExpandItem[h] := True;
end;
end
|
|
774
|
Is there other ways of showing the hierarchy lines (exGroupLinesInside)
with AxGantt1 do
begin
LinesAtRoot := EXGANTTLib.LinesAtRootEnum.exGroupLinesInside;
Indent := 12;
Columns.Add('Default');
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
InsertItem(h,Nil,'Child 3');
ExpandItem[h] := True;
end;
end
|
|
773
|
Is there other ways of showing the hierarchy lines (exGroupLines)
with AxGantt1 do
begin
LinesAtRoot := EXGANTTLib.LinesAtRootEnum.exGroupLines;
Indent := 12;
Columns.Add('Default');
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
InsertItem(InsertItem(h,Nil,'Child 2'),Nil,'SubChild 2');
InsertItem(h,Nil,'Child 3');
ExpandItem[h] := True;
end;
end
|
|
772
|
Is it possible background color displayed when the mouse passes over an item
with AxGantt1 do
begin
BeginUpdate();
Columns.Add('Def');
HotBackColor := Color.FromArgb(0,0,128);
HotForeColor := Color.FromArgb(255,255,255);
with Items do
begin
AddItem('Item A');
AddItem('Item B');
AddItem('Item C');
end;
EndUpdate();
end
|
|
771
|
How can I simulate displaying groups
with AxGantt1 do
begin
HasLines := EXGANTTLib.HierarchyLineEnum.exNoLine;
ScrollBySingleLine := True;
Chart.PaneWidth[True] := 0;
with Columns do
begin
Add('Name');
Add('A');
Add('B');
Add('C');
end;
with Items do
begin
h := AddItem('Group 1');
CellHAlignment[TObject(h),TObject(0)] := EXGANTTLib.AlignmentEnum.CenterAlignment;
ItemDivider[h] := 0;
ItemDividerLineAlignment[h] := EXGANTTLib.DividerAlignmentEnum.DividerBoth;
ItemHeight[h] := 24;
SortableItem[h] := False;
h1 := InsertItem(h,Nil,'Child 1');
CellCaption[TObject(h1),TObject(1)] := TObject(1);
CellCaption[TObject(h1),TObject(2)] := TObject(2);
CellCaption[TObject(h1),TObject(3)] := TObject(3);
h1 := InsertItem(h,Nil,'Child 2');
CellCaption[TObject(h1),TObject(1)] := TObject(4);
CellCaption[TObject(h1),TObject(2)] := TObject(5);
CellCaption[TObject(h1),TObject(3)] := TObject(6);
ExpandItem[h] := True;
h := AddItem('Group 2');
CellHAlignment[TObject(h),TObject(0)] := EXGANTTLib.AlignmentEnum.CenterAlignment;
ItemDivider[h] := 0;
ItemDividerLineAlignment[h] := EXGANTTLib.DividerAlignmentEnum.DividerBoth;
ItemHeight[h] := 24;
SortableItem[h] := False;
h1 := InsertItem(h,Nil,'Child 1');
CellCaption[TObject(h1),TObject(1)] := TObject(1);
CellCaption[TObject(h1),TObject(2)] := TObject(2);
CellCaption[TObject(h1),TObject(3)] := TObject(3);
h1 := InsertItem(h,Nil,'Child 2');
CellCaption[TObject(h1),TObject(1)] := TObject(4);
CellCaption[TObject(h1),TObject(2)] := TObject(5);
CellCaption[TObject(h1),TObject(3)] := TObject(6);
ExpandItem[h] := True;
end;
end
|
|
770
|
Is it possible to change the height for all items at once
with AxGantt1 do
begin
BeginUpdate();
LinesAtRoot := EXGANTTLib.LinesAtRootEnum.exLinesAtRoot;
Columns.Add('Items');
with Items do
begin
h := AddItem('Root 1');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
h := AddItem('Root 2');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[0] := True;
end;
EndUpdate();
DefaultItemHeight := 12;
Items.ItemHeight[0] := 12;
end
|
|
769
|
Is it possible to specify the cell's value but still want to display some formatted text instead the value
with AxGantt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
Columns.Add('Value');
Columns.Add('FormatCell');
with Items do
begin
h := AddItem(TObject(1));
CellCaption[TObject(h),TObject(1)] := TObject(12);
FormatCell[TObject(h),TObject(1)] := 'currency(value)';
h := AddItem('1/1/2001');
CellCaption[TObject(h),TObject(1)] := '1/1/2001';
CellCaptionFormat[TObject(h),TObject(1)] := EXGANTTLib.CaptionFormatEnum.exHTML;
FormatCell[TObject(h),TObject(1)] := 'longdate(value) replace ''2001'' with ''<b>2001</b>''';
end;
EndUpdate();
end
|
|
768
|
Is it possible to specify the cell's value but still want to display some formatted text instead the value
with AxGantt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
MarkSearchColumn := False;
with Columns do
begin
Add('Name');
with (Add('Values') as EXGANTTLib.Column) do
begin
SortType := EXGANTTLib.SortTypeEnum.SortNumeric;
AllowSizing := False;
Width := 64;
FormatColumn := '((0:=dbl(value)) < 10? ''<fgcolor=808080><font ;7>'' :''<b>'') + currency(=:0)';
Def[EXGANTTLib.DefColumnEnum.exCellCaptionFormat] := TObject(1);
end;
end;
with Items do
begin
h := AddItem('Root');
FormatCell[TObject(h),TObject(1)] := '''<none>''';
CellCaption[TObject(InsertItem(h,Nil,'Child 1')),TObject(1)] := TObject(10);
CellCaption[TObject(InsertItem(h,Nil,'Child 2')),TObject(1)] := TObject(15);
CellCaption[TObject(InsertItem(h,Nil,'Child 3')),TObject(1)] := TObject(25);
ExpandItem[h] := True;
end;
EndUpdate();
end
|
|
767
|
I am using the FormatColumn to display the current currency, but would like hide some values. Is it possible
with AxGantt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
MarkSearchColumn := False;
with Columns do
begin
Add('Name');
with (Add('Values') as EXGANTTLib.Column) do
begin
SortType := EXGANTTLib.SortTypeEnum.SortNumeric;
AllowSizing := False;
Width := 64;
FormatColumn := '((0:=dbl(value)) < 10? ''<fgcolor=808080><font ;7>'' :''<b>'') + currency(=:0)';
Def[EXGANTTLib.DefColumnEnum.exCellCaptionFormat] := TObject(1);
end;
end;
with Items do
begin
h := AddItem('Root');
FormatCell[TObject(h),TObject(1)] := ' ';
CellCaption[TObject(InsertItem(h,Nil,'Child 1')),TObject(1)] := TObject(10);
CellCaption[TObject(InsertItem(h,Nil,'Child 2')),TObject(1)] := TObject(15);
CellCaption[TObject(InsertItem(h,Nil,'Child 3')),TObject(1)] := TObject(25);
ExpandItem[h] := True;
end;
EndUpdate();
end
|
|
766
|
How can I apply the same ConditionalFormat on more than 1(one) column (multiple columns and not on item)
with AxGantt1 do
begin
BeginUpdate();
with ConditionalFormats.Add('1','K1') do
begin
BackColor := $ff;
ApplyTo := EXGANTTLib.FormatApplyToEnum($1);
end;
with ConditionalFormats.Add('1','K2') do
begin
BackColor := $ff;
ApplyTo := EXGANTTLib.FormatApplyToEnum($2);
end;
MarkSearchColumn := False;
DrawGridLines := EXGANTTLib.GridLinesEnum.exRowLines;
with Columns do
begin
Add('Column 1');
Add('Column 2');
Add('Column 3');
end;
with Items do
begin
AddItem(Nil);
AddItem(Nil);
AddItem(Nil);
end;
EndUpdate();
end
|
|
765
|
How can I get the list of items as they are displayed
with AxGantt1 do
begin
BeginUpdate();
BackColorAlternate := Color.FromArgb(240,240,240);
Columns.Add('Names');
with Items do
begin
AddItem('Mantel');
AddItem('Mechanik');
AddItem('Motor');
AddItem('Murks');
AddItem('Märchen');
AddItem('Möhren');
AddItem('Mühle');
end;
Columns.Item[TObject(0)].SortOrder := EXGANTTLib.SortOrderEnum.SortAscending;
EndUpdate();
OutputDebugString( GetItems(TObject(1)) );
end
|
|
764
|
Is posible to reduce the size of the picture to be shown in the column's caption
with AxGantt1 do
begin
BeginUpdate();
set_HTMLPicture('pic1','c:\exontrol\images\zipdisk.gif');
HeaderHeight := 48;
(Columns.Add('DefaultSize') as EXGANTTLib.Column).HTMLCaption := 'Default-Size <img>pic1</img> Picture';
(Columns.Add('CustomSize') as EXGANTTLib.Column).HTMLCaption := 'Custom-Size <img>pic1:16</img> Picture';
EndUpdate();
end
|
|
763
|
How can I change the color, font, bold etc for the items/cells in the same column or for the entire column
with AxGantt1 do
begin
BeginUpdate();
MarkSearchColumn := False;
with ConditionalFormats.Add('1',Nil) do
begin
Bold := True;
ForeColor := $ff;
ApplyTo := EXGANTTLib.FormatApplyToEnum($1);
end;
Columns.Add('C1');
with (Columns.Add('C2') as EXGANTTLib.Column) do
begin
HeaderBold := True;
HTMLCaption := '<fgcolor=FF0000>C2';
end;
with Items do
begin
CellCaption[TObject(AddItem(TObject(10))),TObject(1)] := TObject(11);
CellCaption[TObject(AddItem(TObject(12))),TObject(1)] := TObject(13);
end;
EndUpdate();
end
|
|
762
|
The item is not getting selected when clicking the cell's checkbox. What should I do
// CellStateChanged event - Fired after cell's state has been changed.
procedure TWinForm1.AxGantt1_CellStateChanged(sender: System.Object; e: AxEXGANTTLib._IGanttEvents_CellStateChangedEvent);
begin
with AxGantt1 do
begin
Items.SelectItem[e.item] := True;
end
end;
with AxGantt1 do
begin
(Columns.Add('Check') as EXGANTTLib.Column).Def[EXGANTTLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
with Items do
begin
AddItem(TObject(0));
AddItem(TObject(1));
AddItem(TObject(2));
AddItem(TObject(3));
end;
end
|
|
761
|
Is it possible to limit the height of the item while resizing
// AddItem event - Occurs after a new Item has been inserted to Items collection.
procedure TWinForm1.AxGantt1_AddItem(sender: System.Object; e: AxEXGANTTLib._IGanttEvents_AddItemEvent);
begin
with AxGantt1 do
begin
Items.ItemMinHeight[e.item] := 18;
Items.ItemMaxHeight[e.item] := 72;
end
end;
with AxGantt1 do
begin
BeginUpdate();
ItemsAllowSizing := EXGANTTLib.ItemsAllowSizingEnum.exResizeItem;
ScrollBySingleLine := False;
BackColorAlternate := Color.FromArgb(240,240,240);
Columns.Add('Names');
with Items do
begin
AddItem('Mantel');
AddItem('Mechanik');
AddItem('Motor');
AddItem('Murks');
AddItem('Märchen');
AddItem('Möhren');
AddItem('Mühle');
end;
Columns.Item[TObject(0)].SortOrder := EXGANTTLib.SortOrderEnum.SortAscending;
EndUpdate();
end
|
|
760
|
Is it possible to copy the hierarchy of the control using the GetItems method
with AxGantt1 do
begin
LinesAtRoot := EXGANTTLib.LinesAtRootEnum.exLinesAtRoot;
Columns.Add('Def');
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
end;
PutItems(GetItems(TObject(-1)),Nil);
end
|
|
759
|
Does your control supports multiple lines tooltip
with AxGantt1 do
begin
set_HTMLPicture('pic1','c:\exontrol\images\zipdisk.gif');
ToolTipDelay := 1;
(Columns.Add('tootip') as EXGANTTLib.Column).ToolTip := '<br><font Tahoma;10>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The tooltip supports built-in HTML tags, i' +
'cons and pictures.<br><br><br><img>pic1</img> picture ... <br><br>';
end
|
|
758
|
It is possible to write the word in red/color or to add a tooltip or a link to the word
with AxGantt1 do
begin
Columns.Add('Task');
with Chart do
begin
LevelCount := 2;
FirstVisibleDate := '12/26/2000';
PaneWidth[False] := 32;
end;
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'','1/1/2001','1/5/2001','K1','some <fgcolor=FF0000>red</fgcolor> text');
ItemBar[h1,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarPercent] := TObject(False);
ItemBar[h1,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarToolTip] := 'And here goes the <b>tooltip</b> of the text. ';
AddItem('');
AddItem('');
AddItem('');
AddItem('');
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
ItemBar[h2,'K2',EXGANTTLib.ItemBarPropertyEnum.exBarToolTip] := 'And here goes the <b>tooltip</b> of the bar. ';
AddLink('L1',h1,'K1',h2,'K2');
Link['L1',EXGANTTLib.LinkPropertyEnum.exLinkText] := 'L<b>inke</b>d to a bar';
Link['L1',EXGANTTLib.LinkPropertyEnum.exLinkToolTip] := 'And here goes the <b>tooltip</b> of the link. ';
end;
end
|
|
757
|
It is possible to use seconds/minutes/hours as time scale in your control, but using my regional settings
with AxGantt1 do
begin
BeginUpdate();
with Chart do
begin
Label[EXGANTTLib.UnitEnum.exMonth] := '<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> ''<%yy%><|><%loc_mmmm%> <%yyyy%>';
Label[EXGANTTLib.UnitEnum.exWeek] := '<|><%ww%><|><%loc_m3%> <%d%>, ''<%yy%><r><%ww%><|><%loc_mmmm%> <%d%>, <%yyyy%><r><%ww%><||><||>256';
Label[EXGANTTLib.UnitEnum.exDay] := '<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%loc_m3%> <%d%>, ''<%yy%><|><%loc_dddd%>, <%loc_mmmm%> <%d%' +
'>, <%yyyy%><||><||>4096';
Label[EXGANTTLib.UnitEnum.exHour] := '<|><%hh%><|><%h%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, ''<%yy%> <%h%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>' +
' <%h%> <%AM/PM%><||><||>65536';
Label[EXGANTTLib.UnitEnum.exMinute] := '<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, ''<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <' +
'%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>';
Label[EXGANTTLib.UnitEnum.exSecond] := '<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, ''<%yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><' +
'|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>';
LabelToolTip[EXGANTTLib.UnitEnum.exMonth] := '<%loc_mmmm%>/<%yyyy%>';
LabelToolTip[EXGANTTLib.UnitEnum.exWeek] := '<%loc_mmmm%> <%d%>, <%yyyy%> <%ww%>';
LabelToolTip[EXGANTTLib.UnitEnum.exDay] := '<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>';
LabelToolTip[EXGANTTLib.UnitEnum.exHour] := '<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%>';
LabelToolTip[EXGANTTLib.UnitEnum.exMinute] := '<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>';
LabelToolTip[EXGANTTLib.UnitEnum.exSecond] := '<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>';
end;
with Chart do
begin
PaneWidth[False] := 0;
FirstVisibleDate := '1/1/2001';
LevelCount := 4;
Level[0].Label := TObject(4096);
Level[1].Label := TObject(65536);
Level[2].Label := TObject(1048576);
with Level[3] do
begin
Count := 15;
Label := TObject(16777216);
end;
end;
EndUpdate();
end
|
|
756
|
The chart's header is displayed in English. Can I change so it is the same as in my regional settings
with AxGantt1 do
begin
BeginUpdate();
with Chart do
begin
Label[EXGANTTLib.UnitEnum.exMonth] := '<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> ''<%yy%><|><%loc_mmmm%> <%yyyy%>';
Label[EXGANTTLib.UnitEnum.exWeek] := '<|><%ww%><|><%loc_m3%> <%d%>, ''<%yy%><r><%ww%><|><%loc_mmmm%> <%d%>, <%yyyy%><r><%ww%><||><||>256';
Label[EXGANTTLib.UnitEnum.exDay] := '<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%loc_m3%> <%d%>, ''<%yy%><|><%loc_dddd%>, <%loc_mmmm%> <%d%' +
'>, <%yyyy%><||><||>4096';
Label[EXGANTTLib.UnitEnum.exHour] := '<|><%hh%><|><%h%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, ''<%yy%> <%h%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>' +
' <%h%> <%AM/PM%><||><||>65536';
Label[EXGANTTLib.UnitEnum.exMinute] := '<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, ''<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <' +
'%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>';
Label[EXGANTTLib.UnitEnum.exSecond] := '<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, ''<%yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><' +
'|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>';
LabelToolTip[EXGANTTLib.UnitEnum.exMonth] := '<%loc_mmmm%>/<%yyyy%>';
LabelToolTip[EXGANTTLib.UnitEnum.exWeek] := '<%loc_mmmm%> <%d%>, <%yyyy%> <%ww%>';
LabelToolTip[EXGANTTLib.UnitEnum.exDay] := '<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>';
LabelToolTip[EXGANTTLib.UnitEnum.exHour] := '<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%>';
LabelToolTip[EXGANTTLib.UnitEnum.exMinute] := '<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>';
LabelToolTip[EXGANTTLib.UnitEnum.exSecond] := '<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>';
end;
with Chart do
begin
PaneWidth[False] := 0;
FirstVisibleDate := '1/1/2001';
LevelCount := 2;
UnitScale := EXGANTTLib.UnitEnum.exDay;
end;
EndUpdate();
end
|
|
755
|
It is possible to use seconds/minutes/hours as time scale in your control
with AxGantt1 do
begin
BeginUpdate();
with Chart do
begin
PaneWidth[False] := 0;
FirstVisibleDate := '1/1/2001';
LevelCount := 4;
Level[0].Label := TObject(4096);
Level[1].Label := TObject(65536);
Level[2].Label := TObject(1048576);
with Level[3] do
begin
Count := 15;
Label := TObject(16777216);
end;
end;
EndUpdate();
end
|
|
754
|
How can I prevent highlighting the column from the cursor - point
with AxGantt1 do
begin
VisualAppearance.Add(1,'gBFLBCJwBAEHhEJAEGg4BI0IQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDKKUEwsACEIrjKCYVgOHYYRrIMYgBCMJhLEoaZLhEZRQiqDYtRDFQBSDDcPw/EaRZohGaYJg' +
'EgI=');
set_Background(EXGANTTLib.BackgroundPartEnum.exCursorHoverColumn,$1000000);
(Columns.Add('S') as EXGANTTLib.Column).Width := 32;
(Columns.Add('Level 1') as EXGANTTLib.Column).LevelKey := TObject(1);
(Columns.Add('Level 2') as EXGANTTLib.Column).LevelKey := TObject(1);
(Columns.Add('Level 3') as EXGANTTLib.Column).LevelKey := TObject(1);
(Columns.Add('E1') as EXGANTTLib.Column).Width := 32;
(Columns.Add('E2') as EXGANTTLib.Column).Width := 32;
(Columns.Add('E3') as EXGANTTLib.Column).Width := 32;
(Columns.Add('E4') as EXGANTTLib.Column).Width := 32;
end
|
|
753
|
Can I use and display PNG pictures
with AxGantt1 do
begin
set_HTMLPicture('pic1','c:\exontrol\images\card.png');
HeaderHeight := 48;
(Columns.Add('ColumnName') as EXGANTTLib.Column).HTMLCaption := '<b>HTML</b> Column <img>pic1</img> Picture';
end
|
|
752
|
Is it possible to specify the background color for the item in the chart part only
with AxGantt1 do
begin
Columns.Add('Default');
with Items do
begin
h := AddItem('Root');
hC := InsertItem(h,Nil,'Child 1');
AxGantt1.Chart.ItemBackColor[hC] := $ff;
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
end;
end
|
|
751
|
Is it possible to apply different visual appearance, color, sizes for item in the list and chart part
with AxGantt1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
VisualAppearance.Add(2,'c:\exontrol\images\pushed.ebn');
VisualAppearance.Add(3,'CP:2 2 2 -2 -2');
Columns.Add('Default');
SelBackMode := EXGANTTLib.BackModeEnum.exTransparent;
with Items do
begin
h := AddItem('Root');
hC := InsertItem(h,Nil,'Child 1');
ItemBackColor[hC] := $1ffff00;
AxGantt1.Chart.ItemBackColor[hC] := $300ff00;
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
end;
end
|
|
750
|
How do I change the visual appearance for the entire item, using your EBN technology
with AxGantt1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Columns.Add('Default');
with Items do
begin
h := AddItem('Root');
hC := InsertItem(h,Nil,'Child 1');
ItemBackColor[hC] := $1000000;
AxGantt1.Chart.ItemBackColor[hC] := $1000000;
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
end;
end
|
|
749
|
is it possible to specify the a different background color for the item, list and chart part
with AxGantt1 do
begin
Columns.Add('Default');
with Items do
begin
h := AddItem('Root');
hC := InsertItem(h,Nil,'Child 1');
ItemBackColor[hC] := $ff;
AxGantt1.Chart.ItemBackColor[hC] := $ffff;
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
end;
end
|
|
748
|
Is it possible to specify the background color for the entire row, including the chart part
with AxGantt1 do
begin
Columns.Add('Default');
with Items do
begin
h := AddItem('Root');
hC := InsertItem(h,Nil,'Child 1');
ItemBackColor[hC] := $ff;
AxGantt1.Chart.ItemBackColor[hC] := $ff;
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
end;
end
|
|
747
|
How can I show the tooltip programmatically ( I want to be able to set the tooltip content dynamically just before the tooltip start to appear, not using the exBarTooltip )
// MouseMove event - Occurs when the user moves the mouse.
procedure TWinForm1.AxGantt1_MouseMoveEvent(sender: System.Object; e: AxEXGANTTLib._IGanttEvents_MouseMoveEvent);
begin
with AxGantt1 do
begin
ShowToolTip(Chart.BarFromPoint[-1,-1],'','8','8',Nil);
end
end;
with AxGantt1 do
begin
BeginUpdate();
Columns.Add('Def');
with Chart do
begin
PaneWidth[False] := 64;
LevelCount := 2;
FirstVisibleDate := '1/1/2010';
end;
with Items do
begin
h := AddItem('Task');
AddBar(h,'Task','1/2/2010','1/5/2010','A','A');
AddBar(h,'Task','1/5/2010','1/8/2010','B','B');
AddBar(h,'Task','1/8/2010','1/11/2010','C','C');
end;
EndUpdate();
end
|
|
746
|
Is it possible to move an item from a parent to another
with AxGantt1 do
begin
BeginUpdate();
LinesAtRoot := EXGANTTLib.LinesAtRootEnum.exLinesAtRoot;
Columns.Add('Items');
with Items do
begin
AddItem('A');
AddItem('B');
InsertItem(AddItem('C'),'','D');
SetParent(FindItem['D',TObject(0),Nil],FindItem['A',TObject(0),Nil]);
end;
EndUpdate();
end
|
|
745
|
How can I change the identation for an item
with AxGantt1 do
begin
BeginUpdate();
LinesAtRoot := EXGANTTLib.LinesAtRootEnum.exLinesAtRoot;
Columns.Add('Items');
with Items do
begin
AddItem('A');
AddItem('B');
InsertItem(AddItem('C'),'','D');
SetParent(FindItem['D',TObject(0),Nil],0);
end;
EndUpdate();
end
|
|
744
|
How can I specify the levels using the user's Regional and Language Options
with AxGantt1 do
begin
BeginUpdate();
Font.Name := 'Arial Unicode MS';
HeaderHeight := 36;
with Chart do
begin
FirstVisibleDate := '5/30/2010';
PaneWidth[False] := 0;
FirstWeekDay := EXGANTTLib.WeekDayEnum.exMonday;
UnitWidth := 36;
LevelCount := 2;
with Level[0] do
begin
Label := '<b><%loc_mmmm%></b> <%yyyy%><br><%loc_sdate%><r> <%ww%> ';
ToolTip := Label;
Unit := EXGANTTLib.UnitEnum.exWeek;
end;
with Level[1] do
begin
Label := '<%loc_ddd%><br><%d%>';
ToolTip := Label;
end;
ToolTip := '<%loc_ldate%>';
end;
EndUpdate();
end
|
|
743
|
How can I display a bar only using a gradient color and shadow
with AxGantt1 do
begin
BeginUpdate();
with Chart do
begin
FirstVisibleDate := '12/31/2009';
LevelCount := 2;
PaneWidth[False] := 96;
with Bars.Item['Task'] do
begin
StartColor := $ffffff;
EndColor := Color;
end;
end;
Columns.Add('Types');
with Items do
begin
AddBar(AddItem('Original'),'Task','1/4/2010','1/9/2010','',Nil);
h := AddItem('W/h Gradient');
AddBar(h,'Task','1/4/2010','1/9/2010','',Nil);
ItemBar[h,'',EXGANTTLib.ItemBarPropertyEnum.exBarPattern] := TObject(8291);
AddBar(AddItem('Original'),'Task','1/4/2010','1/9/2010','',Nil);
end;
EndUpdate();
end
|
|
742
|
Is it possible to display a bar only using a gradient color using the exBarColor option
with AxGantt1 do
begin
BeginUpdate();
with Chart do
begin
FirstVisibleDate := '12/31/2009';
LevelCount := 2;
PaneWidth[False] := 96;
with Bars.Item['Task'] do
begin
StartColor := $ffffff;
EndColor := StartColor;
Height := 17;
end;
end;
Columns.Add('Types');
with Items do
begin
AddBar(AddItem('Original'),'Task','1/4/2010','1/9/2010','',Nil);
h := AddItem('W/h Gradient');
AddBar(h,'Task','1/4/2010','1/9/2010','',Nil);
ItemBar[h,'',EXGANTTLib.ItemBarPropertyEnum.exBarPattern] := TObject(227);
h := AddItem('W/h Color');
AddBar(h,'Task','1/4/2010','1/9/2010','',Nil);
ItemBar[h,'',EXGANTTLib.ItemBarPropertyEnum.exBarPattern] := TObject(227);
ItemBar[h,'',EXGANTTLib.ItemBarPropertyEnum.exBarColor] := TObject(255);
AddBar(AddItem('Original'),'Task','1/4/2010','1/9/2010','',Nil);
end;
EndUpdate();
end
|
|
741
|
Is it possible to display a bar only using a gradient color
with AxGantt1 do
begin
BeginUpdate();
with Chart do
begin
FirstVisibleDate := '12/31/2009';
LevelCount := 2;
PaneWidth[False] := 96;
with Bars.Item['Task'] do
begin
StartColor := $ffffff;
EndColor := StartColor;
Height := 17;
end;
end;
Columns.Add('Types');
with Items do
begin
AddBar(AddItem('Original'),'Task','1/4/2010','1/9/2010','',Nil);
h := AddItem('W/h Gradient');
AddBar(h,'Task','1/4/2010','1/9/2010','',Nil);
ItemBar[h,'',EXGANTTLib.ItemBarPropertyEnum.exBarPattern] := TObject(227);
AddBar(AddItem('Original'),'Task','1/4/2010','1/9/2010','',Nil);
end;
EndUpdate();
end
|
|
740
|
Is it possible to display a bar only using a gradient color
with AxGantt1 do
begin
BeginUpdate();
with Chart do
begin
FirstVisibleDate := '12/31/2009';
LevelCount := 2;
PaneWidth[False] := 96;
with Bars.Item['Task'] do
begin
StartColor := $ffffff;
EndColor := Color;
end;
end;
Columns.Add('Types');
with Items do
begin
AddBar(AddItem('Original'),'Task','1/4/2010','1/9/2010','',Nil);
h := AddItem('W/h Gradient');
AddBar(h,'Task','1/4/2010','1/9/2010','',Nil);
ItemBar[h,'',EXGANTTLib.ItemBarPropertyEnum.exBarPattern] := TObject(99);
AddBar(AddItem('Original'),'Task','1/4/2010','1/9/2010','',Nil);
end;
EndUpdate();
end
|
|
739
|
How can I display a specified bar only with a thicker border
with AxGantt1 do
begin
BeginUpdate();
with Chart do
begin
FirstVisibleDate := '12/31/2009';
LevelCount := 2;
PaneWidth[False] := 96;
end;
Columns.Add('Types');
with Items do
begin
AddBar(AddItem('Original'),'Task','1/4/2010','1/9/2010','',Nil);
h := AddItem('W/h Border');
AddBar(h,'Task','1/4/2010','1/9/2010','',Nil);
ItemBar[h,'',EXGANTTLib.ItemBarPropertyEnum.exBarPattern] := TObject(4099);
AddBar(AddItem('Original'),'Task','1/4/2010','1/9/2010','',Nil);
end;
EndUpdate();
end
|
|
738
|
Is it possible to display the shadow for a specified bar
with AxGantt1 do
begin
BeginUpdate();
with Chart do
begin
FirstVisibleDate := '12/31/2009';
LevelCount := 2;
PaneWidth[False] := 96;
end;
Columns.Add('Types');
with Items do
begin
AddBar(AddItem('Original'),'Task','1/4/2010','1/9/2010','',Nil);
h := AddItem('W/h Shadow');
AddBar(h,'Task','1/4/2010','1/9/2010','',Nil);
ItemBar[h,'',EXGANTTLib.ItemBarPropertyEnum.exBarPattern] := TObject(8195);
AddBar(AddItem('Original'),'Task','1/4/2010','1/9/2010','',Nil);
end;
EndUpdate();
end
|
|
737
|
Is it possible to display the task bars with a gradient color
with AxGantt1 do
begin
BeginUpdate();
with Chart do
begin
FirstVisibleDate := '12/31/2009';
LevelCount := 2;
PaneWidth[False] := 96;
Bars.Copy('Task','TaskO');
with Bars.Item['Task'] do
begin
Pattern := Integer(EXGANTTLib.PatternEnum.exPatternGradientVBox) Or Integer(EXGANTTLib.PatternEnum.exPatternBox) Or Integer(EXGANTTLib.PatternEnum.exPatternShadow);
StartColor := $ffffff;
EndColor := Color;
end;
end;
Columns.Add('Types');
with Items do
begin
AddBar(AddItem('Original'),'TaskO','1/4/2010','1/9/2010','',Nil);
AddBar(AddItem('Pattern Gradient'),'Task','1/4/2010','1/9/2010','',Nil);
AddBar(AddItem('Original'),'TaskO','1/4/2010','1/9/2010','',Nil);
end;
EndUpdate();
end
|
|
736
|
How can I know the type of bars I can displays using predefined patterns
with AxGantt1 do
begin
BeginUpdate();
with Chart do
begin
FirstVisibleDate := '12/31/2009';
LevelCount := 2;
PaneWidth[False] := 96;
with Bars do
begin
Add('Box').Pattern := EXGANTTLib.PatternEnum.exPatternBox;
Add('ThickBox').Pattern := Integer(EXGANTTLib.PatternEnum.exPatternThickBox) Or Integer(EXGANTTLib.PatternEnum.exPatternBox);
Add('DiagBox').Pattern := Integer(EXGANTTLib.PatternEnum.exPatternThickBox) Or Integer(EXGANTTLib.PatternEnum.exPatternBDiagonal);
Copy('Task','Shadow').Pattern := Integer(EXGANTTLib.PatternEnum.exPatternFrameShadow) Or Integer(EXGANTTLib.PatternEnum.exPatternShadow);
Copy('Task','TShadow').Pattern := Integer(EXGANTTLib.PatternEnum.exPatternFrameShadow) Or Integer(EXGANTTLib.PatternEnum.exPatternThickBox) Or Integer(EXGANTTLib.PatternEnum.exPatternDiagCross);
with Add('HGrad1') do
begin
Pattern := EXGANTTLib.PatternEnum.exPatternBox;
StartColor := $ffffff;
EndColor := $ff0000;
end;
with Add('HGrad2') do
begin
Pattern := Integer(EXGANTTLib.PatternEnum.exPatternBox) Or Integer(EXGANTTLib.PatternEnum.exPatternShadow);
StartColor := $ffffff;
EndColor := $ff0000;
Color := $ff0000;
end;
with Add('HGrad3') do
begin
Pattern := Integer(EXGANTTLib.PatternEnum.exPatternGradient3Colors) Or Integer(EXGANTTLib.PatternEnum.exPatternBox) Or Integer(EXGANTTLib.PatternEnum.exPatternShadow);
StartColor := $ffffff;
EndColor := StartColor;
Color := $ff0000;
end;
with Add('HGrad4') do
begin
Pattern := Integer(EXGANTTLib.PatternEnum.exPatternThickBox) Or Integer(EXGANTTLib.PatternEnum.exPatternGradient3Colors) Or Integer(EXGANTTLib.PatternEnum.exPatternBox);
StartColor := $ffffff;
EndColor := StartColor;
Color := $ff0000;
end;
with Add('HGrad5') do
begin
Pattern := Integer(EXGANTTLib.PatternEnum.exPatternFrameShadow) Or Integer(EXGANTTLib.PatternEnum.exPatternGradient3Colors) Or Integer(EXGANTTLib.PatternEnum.exPatternBox);
StartColor := $ff00;
EndColor := $ff;
Color := $ff0000;
end;
with Add('VGrad1') do
begin
Pattern := Integer(EXGANTTLib.PatternEnum.exPatternGradientVBox) Or Integer(EXGANTTLib.PatternEnum.exPatternBox);
StartColor := $ffffff;
EndColor := $ff0000;
Height := 14;
end;
with Add('VGrad2') do
begin
Pattern := Integer(EXGANTTLib.PatternEnum.exPatternGradientVBox) Or Integer(EXGANTTLib.PatternEnum.exPatternBox) Or Integer(EXGANTTLib.PatternEnum.exPatternShadow);
StartColor := $ffffff;
EndColor := $ff0000;
Color := $ff0000;
Height := 14;
end;
with Add('VGrad3') do
begin
Pattern := Integer(EXGANTTLib.PatternEnum.exPatternGradient3Colors) Or Integer(EXGANTTLib.PatternEnum.exPatternGradientVBox) Or Integer(EXGANTTLib.PatternEnum.exPatternBox) Or Integer(EXGANTTLib.PatternEnum.exPatternShadow);
StartColor := $ffffff;
EndColor := StartColor;
Color := $ff0000;
Height := 14;
end;
with Add('VGrad4') do
begin
Pattern := Integer(EXGANTTLib.PatternEnum.exPatternThickBox) Or Integer(EXGANTTLib.PatternEnum.exPatternGradient3Colors) Or Integer(EXGANTTLib.PatternEnum.exPatternGradientVBox) Or Integer(EXGANTTLib.PatternEnum.exPatternBox);
StartColor := $ffffff;
EndColor := StartColor;
Color := $ff0000;
Height := -1;
end;
with Add('VGrad5') do
begin
Pattern := Integer(EXGANTTLib.PatternEnum.exPatternFrameShadow) Or Integer(EXGANTTLib.PatternEnum.exPatternGradient3Colors) Or Integer(EXGANTTLib.PatternEnum.exPatternGradientVBox) Or Integer(EXGANTTLib.PatternEnum.exPatternBox);
StartColor := $ff00;
EndColor := $ff;
Color := $ff0000;
Height := 14;
end;
end;
end;
Columns.Add('Types');
with Items do
begin
AddBar(AddItem('Box'),'Box','1/4/2010','1/9/2010','',Nil);
AddBar(AddItem('Thick Box'),'ThickBox','1/4/2010','1/9/2010','',Nil);
AddBar(AddItem('Thick Box Diag'),'DiagBox','1/4/2010','1/9/2010','',Nil);
AddBar(AddItem('Shadow'),'Shadow','1/4/2010','1/9/2010','',Nil);
AddBar(AddItem('Thick Shadow'),'TShadow','1/4/2010','1/9/2010','',Nil);
AddBar(AddItem('Solid Gradient'),'HGrad1','1/4/2010','1/9/2010','',Nil);
AddBar(AddItem('Pattern Gradient'),'HGrad2','1/4/2010','1/9/2010','',Nil);
AddBar(AddItem('Pattern Gradient 3 Colors'),'HGrad3','1/4/2010','1/9/2010','',Nil);
AddBar(AddItem('Solid Gradient 3 Colors'),'HGrad4','1/4/2010','1/9/2010','',Nil);
AddBar(AddItem('Gradient Shadow'),'HGrad5','1/4/2010','1/9/2010','',Nil);
AddBar(AddItem('Solid Gradient'),'VGrad1','1/4/2010','1/9/2010','',Nil);
AddBar(AddItem('Pattern Gradient'),'VGrad2','1/4/2010','1/9/2010','',Nil);
AddBar(AddItem('Pattern Gradient 3 Colors'),'VGrad3','1/4/2010','1/9/2010','',Nil);
AddBar(AddItem('Solid Gradient 3 Colors'),'VGrad4','1/4/2010','1/9/2010','',Nil);
AddBar(AddItem('Gradient Shadow'),'VGrad5','1/4/2010','1/9/2010','',Nil);
end;
EndUpdate();
end
|
|
735
|
Is it possible to display the bars with a thicker border
with AxGantt1 do
begin
BeginUpdate();
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
Chart.PaneWidth[False] := 48;
Chart.Bars.Copy('Task','TaskB').Pattern := Integer(EXGANTTLib.PatternEnum.exPatternThickBox) Or Integer(EXGANTTLib.PatternEnum.exPatternShadow);
with Items do
begin
AddBar(AddItem('Task 1'),'Task','1/2/2001','1/5/2001','',Nil);
AddBar(AddItem('Task 2'),'TaskB','1/2/2001','1/5/2001','',Nil);
AddBar(AddItem('Task 3'),'Task','1/2/2001','1/5/2001','',Nil);
end;
EndUpdate();
end
|
|
734
|
Is it possible to display the shadow for EBN bars
with AxGantt1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
Chart.PaneWidth[False] := 48;
with Chart.Bars.Copy('Task','EBN') do
begin
Color := $1000000;
Pattern := EXGANTTLib.PatternEnum.exPatternFrameShadow;
end;
Chart.Bars.Copy('Task','EBN2').Color := $1000000;
with Items do
begin
AddBar(AddItem('Task 1'),'EBN2','1/2/2001','1/5/2001','',Nil);
AddBar(AddItem('Task 2'),'EBN','1/2/2001','1/5/2001','',Nil);
AddBar(AddItem('Task 3'),'EBN2','1/2/2001','1/5/2001','',Nil);
end;
EndUpdate();
end
|
|
733
|
Can I display a shadow for my bars
with AxGantt1 do
begin
BeginUpdate();
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
Chart.PaneWidth[False] := 48;
Chart.Bars.Item['Task'].Pattern := Integer(EXGANTTLib.PatternEnum.exPatternFrameShadow) Or Integer(EXGANTTLib.PatternEnum.exPatternShadow);
with Items do
begin
AddBar(AddItem('Task 1'),'Task','1/2/2001','1/5/2001','',Nil);
AddBar(AddItem('Task 2'),'Task','1/2/2001','1/5/2001','',Nil);
end;
EndUpdate();
end
|
|
732
|
How can I use the Color property for gradient bars
with AxGantt1 do
begin
BeginUpdate();
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
Chart.PaneWidth[False] := 48;
with Chart.Bars.Add('V') do
begin
Color := $ff;
StartColor := $ff00;
EndColor := StartColor;
Pattern := Integer(EXGANTTLib.PatternEnum.exPatternGradient3Colors) Or Integer(EXGANTTLib.PatternEnum.exPatternGradientVBox) Or Integer(EXGANTTLib.PatternEnum.exPatternBox);
Height := -1;
end;
with Chart.Bars.Add('H') do
begin
Color := $ff;
StartColor := $ff00;
EndColor := StartColor;
Pattern := Integer(EXGANTTLib.PatternEnum.exPatternGradient3Colors) Or Integer(EXGANTTLib.PatternEnum.exPatternBox);
end;
with Items do
begin
AddBar(AddItem('Task 1'),'V','1/2/2001','1/5/2001','',Nil);
AddBar(AddItem('Task 2'),'H','1/2/2001','1/5/2001','',Nil);
end;
EndUpdate();
end
|
|
731
|
Is there any option to show bars with vertical gradient
with AxGantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Chart.Bars.Item['Task'] do
begin
Color := $ff;
StartColor := $ff00;
EndColor := $ffff;
Pattern := Integer(EXGANTTLib.PatternEnum.exPatternGradientVBox) Or Integer(EXGANTTLib.PatternEnum.exPatternBox);
end;
with Items do
begin
h := AddItem('Task');
AddBar(h,'Task','1/2/2001','1/5/2001','',Nil);
end;
end
|
|
730
|
How can I define a new milestone bar
with AxGantt1 do
begin
BeginUpdate();
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
Chart.FirstVisibleDate := '1/1/2001';
with Chart.Bars do
begin
AddShapeCorner(TObject(12345),TObject(1));
AddShapeCorner(TObject(12346),TObject(2));
Copy('Milestone','M1').StartShape := EXGANTTLib.ShapeCornerEnum($3020 Or Integer(EXGANTTLib.ShapeCornerEnum.exShapeIconVBar) Or Integer(EXGANTTLib.ShapeCornerEnum.exShapeIconRight));
Copy('Milestone','M2').StartShape := EXGANTTLib.ShapeCornerEnum($3020 Or Integer(EXGANTTLib.ShapeCornerEnum.exShapeIconSquare) Or Integer(EXGANTTLib.ShapeCornerEnum.exShapeIconRight));
with Copy('Milestone','MP') do
begin
StartShape := EXGANTTLib.ShapeCornerEnum.exShapeIconStar;
StartColor := $ff;
end;
end;
Columns.Add('Column');
with Items do
begin
AddBar(AddItem('Default'),'Milestone','1/2/2001','1/2/2001',Nil,Nil);
AddBar(AddItem('Predefined'),'MP','1/3/2001','1/3/2001',Nil,Nil);
AddBar(AddItem('Custom 1'),'M1','1/4/2001','1/4/2001',Nil,Nil);
AddBar(AddItem('Custom 2'),'M2','1/5/2001','1/5/2001',Nil,Nil);
end;
EndUpdate();
end
|
|
729
|
How can I define my milestone bar, using my icons or pictures
with AxGantt1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
Chart.FirstVisibleDate := '1/1/2001';
with Chart.Bars do
begin
AddShapeCorner(TObject(12345),TObject(1));
Item['Milestone'].StartShape := EXGANTTLib.ShapeCornerEnum($3020 Or Integer(EXGANTTLib.ShapeCornerEnum.exShapeIconVBar) Or Integer(EXGANTTLib.ShapeCornerEnum.exShapeIconRight));
end;
Columns.Add('Column');
with Items do
begin
AddBar(AddItem('Item 1'),'Milestone','1/2/2001','1/2/2001',Nil,Nil);
end;
end
|
|
728
|
I haven't found options to localize (in Italian) the strings ( dates, tooltip ) that shows in the chart area
with AxGantt1 do
begin
BeginUpdate();
with Chart do
begin
LevelCount := 2;
PaneWidth[False] := 0;
Label[EXGANTTLib.UnitEnum.exWeek] := '<|><%ww%><|><%d%> <%m3%> ''<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256';
Label[EXGANTTLib.UnitEnum.exDay] := '<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> ''<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096';
LabelToolTip[EXGANTTLib.UnitEnum.exWeek] := '<%d%> <%mmmm%> <%yyyy%> <%ww%>';
LabelToolTip[EXGANTTLib.UnitEnum.exDay] := '<%dddd%> <%d%> <%mmmm%> <%yyyy%>';
FirstWeekDay := EXGANTTLib.WeekDayEnum.exMonday;
MonthNames := 'gennaio febbraio marzo aprile maggio giugno luglio agosto settembre ottobre novembre dicembre';
WeekDays := 'domenica lunedì martedì mercoledì giovedì venerdì sabato';
ToolTip := '<%dddd%> <%d%> <%mmmm%> <%yyyy%>';
UnitScale := EXGANTTLib.UnitEnum.exDay;
end;
EndUpdate();
end
|
|
727
|
I haven't found options to localize (in Dutch) the strings ( dates, tooltip ) that shows in the chart area
with AxGantt1 do
begin
BeginUpdate();
with Chart do
begin
LevelCount := 2;
PaneWidth[False] := 0;
Label[EXGANTTLib.UnitEnum.exWeek] := '<|><%ww%><|><%d%> <%m3%> ''<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256';
Label[EXGANTTLib.UnitEnum.exDay] := '<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> ''<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096';
LabelToolTip[EXGANTTLib.UnitEnum.exWeek] := '<%d%> <%mmmm%> <%yyyy%> <%ww%>';
LabelToolTip[EXGANTTLib.UnitEnum.exDay] := '<%dddd%> <%d%> <%mmmm%> <%yyyy%>';
FirstWeekDay := EXGANTTLib.WeekDayEnum.exMonday;
MonthNames := 'januari februari maart april mei juni juli augusts september oktober november december';
WeekDays := 'zondag maandag dinsdag woensdag donderdag vrijdag zaterdag';
ToolTip := '<%dddd%> <%d%> <%mmmm%> <%yyyy%>';
UnitScale := EXGANTTLib.UnitEnum.exDay;
end;
EndUpdate();
end
|
|
726
|
I haven't found options to localize (in German) the strings ( dates, tooltip ) that shows in the chart area
with AxGantt1 do
begin
BeginUpdate();
with Chart do
begin
LevelCount := 2;
PaneWidth[False] := 0;
Label[EXGANTTLib.UnitEnum.exWeek] := '<|><%ww%><|><%d%> <%m3%> ''<%yy%><r><%ww%><|><%d%>.<%mmmm%> <%yyyy%><r><%ww%><||><||>256';
Label[EXGANTTLib.UnitEnum.exDay] := '<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%>.<%m3%> ''<%yy%><|><%dddd%> <%d%>.<%mmmm%> <%yyyy%><||><||>4096';
LabelToolTip[EXGANTTLib.UnitEnum.exWeek] := '<%d%>.<%mmmm%> <%yyyy%> <%ww%>';
LabelToolTip[EXGANTTLib.UnitEnum.exDay] := '<%dddd%>, <%d%>.<%mmmm%> <%yyyy%>';
FirstWeekDay := EXGANTTLib.WeekDayEnum.exMonday;
MonthNames := 'Januar Februar März April Mai Juni Juli August September Oktober November Dezember';
WeekDays := 'Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag';
ToolTip := '<%dddd%>,<%d%>.<%mmmm%> <%yyyy%>';
UnitScale := EXGANTTLib.UnitEnum.exDay;
end;
EndUpdate();
end
|
|
725
|
I haven't found options to localize (in French) the strings ( dates, tooltip ) that shows in the chart area
with AxGantt1 do
begin
BeginUpdate();
with Chart do
begin
LevelCount := 2;
PaneWidth[False] := 0;
Label[EXGANTTLib.UnitEnum.exWeek] := '<|><%ww%><|><%d%> <%m3%> ''<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256';
Label[EXGANTTLib.UnitEnum.exDay] := '<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> ''<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096';
LabelToolTip[EXGANTTLib.UnitEnum.exWeek] := '<%d%> <%mmmm%> <%yyyy%> <%ww%>';
LabelToolTip[EXGANTTLib.UnitEnum.exDay] := '<%dddd%> <%d%> <%mmmm%> <%yyyy%>';
FirstWeekDay := EXGANTTLib.WeekDayEnum.exMonday;
MonthNames := 'janvier février mars avril mai juin juillet août septembre octobre novembre décembre';
WeekDays := 'dimanche lundi mardi mercredi jeudi vendredi samedi';
ToolTip := '<%dddd%> <%d%> <%mmmm%> <%yyyy%>';
UnitScale := EXGANTTLib.UnitEnum.exDay;
end;
EndUpdate();
end
|
|
724
|
How can I filter programatically using more columns
with AxGantt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
with Columns do
begin
Add('Car');
Add('Equipment');
end;
with Items do
begin
CellCaption[TObject(AddItem('Mazda')),TObject(1)] := 'Air Bag';
CellCaption[TObject(AddItem('Toyota')),TObject(1)] := 'Air Bag,Air condition';
CellCaption[TObject(AddItem('Ford')),TObject(1)] := 'Air condition';
CellCaption[TObject(AddItem('Nissan')),TObject(1)] := 'Air Bag,ABS,ESP';
CellCaption[TObject(AddItem('Mazda')),TObject(1)] := 'Air Bag, ABS,ESP';
CellCaption[TObject(AddItem('Mazda')),TObject(1)] := 'ABS,ESP';
end;
with Columns.Item['Car'] do
begin
FilterType := EXGANTTLib.FilterTypeEnum.exFilter;
Filter := 'Mazda';
end;
with Columns.Item['Equipment'] do
begin
FilterType := EXGANTTLib.FilterTypeEnum.exPattern;
Filter := '*ABS*|*ESP*';
end;
ApplyFilter();
EndUpdate();
end
|
|
723
|
I have seen the IN function but it returns -1 or 0. How can I display the value being found ( SWITCH usage )
with AxGantt1 do
begin
BeginUpdate();
with (Columns.Add('Value') as EXGANTTLib.Column) do
begin
Width := 24;
end;
with (Columns.Add('SWITCH - statment') as EXGANTTLib.Column) do
begin
ComputedField := '%0 switch (''not found'', 1,2,3,4,5,7,8,9,11,13,14)';
ToolTip := ComputedField;
end;
with Items do
begin
AddItem(TObject(0));
AddItem(TObject(1));
AddItem(TObject(2));
end;
EndUpdate();
end
|
|
722
|
I have a large collection of constant values and using or operator is a time consuming (IN usage). Is there any way to increase the speed to check if a value maches the collection
with AxGantt1 do
begin
BeginUpdate();
with (Columns.Add('Value') as EXGANTTLib.Column) do
begin
Width := 24;
end;
with (Columns.Add('IN - statment') as EXGANTTLib.Column) do
begin
ComputedField := '%0 in (1,2,3,4,5,7,8,9,11,13,14) ? ''found'' : ''''';
ToolTip := ComputedField;
end;
with Items do
begin
AddItem(TObject(0));
AddItem(TObject(1));
AddItem(TObject(2));
end;
EndUpdate();
end
|
|
721
|
How can I use the CASE statement (CASE usage)
with AxGantt1 do
begin
BeginUpdate();
with (Columns.Add('Value') as EXGANTTLib.Column) do
begin
Width := 24;
end;
with (Columns.Add('CASE - statment') as EXGANTTLib.Column) do
begin
ComputedField := '%0 case (default:''not found'';1:%0;2:2*%0;3:3*%0;4:4*%0;5:5*%0;7:''Seven'';8:''Eight'';9:''Nine'';11:''Eleven'';13:''Thirtheen'';14:''Fourth' +
'een'')';
ToolTip := ComputedField;
end;
with Items do
begin
AddItem(TObject(0));
AddItem(TObject(1));
AddItem(TObject(2));
end;
EndUpdate();
end
|
|
720
|
How can I use the CASE statement (CASE usage)
with AxGantt1 do
begin
BeginUpdate();
with (Columns.Add('Value') as EXGANTTLib.Column) do
begin
Width := 24;
end;
with (Columns.Add('CASE - statment') as EXGANTTLib.Column) do
begin
ComputedField := '%0 case (default:''not found'';1:''One'';2:''Two'';3:''Three'';4:''Four'';5:''Five'';7:''Seven'';8:''Eight'';9:''Nine'';11:''Eleven'';13:''Thirtheen''' +
';14:''Fourtheen'')';
ToolTip := ComputedField;
end;
with Items do
begin
AddItem(TObject(0));
AddItem(TObject(1));
AddItem(TObject(2));
end;
EndUpdate();
end
|
|
719
|
Is is possible to use HTML tags to display in the filter caption
with AxGantt1 do
begin
BeginUpdate();
FilterBarPromptVisible := True;
FilterBarCaption := 'This is a bit of text being displayed in the filter bar.';
Columns.Add('');
with Items do
begin
AddItem('Item 1');
AddItem('Item 2');
AddItem('Item 3');
end;
EndUpdate();
end
|
|
718
|
How can I find the number of items after filtering
with AxGantt1 do
begin
BeginUpdate();
Columns.Add('');
with Items do
begin
h := AddItem('');
CellCaption[TObject(h),TObject(0)] := TObject(VisibleItemCount);
end;
EndUpdate();
end
|
|
717
|
How can I change the filter caption
with AxGantt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
ColumnAutoResize := True;
ContinueColumnScroll := False;
MarkSearchColumn := False;
SearchColumnIndex := 1;
FilterBarPromptVisible := True;
FilterBarPromptType := Integer(EXGANTTLib.FilterPromptEnum.exFilterPromptWords) Or Integer(EXGANTTLib.FilterPromptEnum.exFilterPromptContainsAll);
FilterBarPromptPattern := 'london robert';
FilterBarCaption := '<r>Found: ... ';
with Columns do
begin
(Add('Name') as EXGANTTLib.Column).Width := 96;
(Add('Title') as EXGANTTLib.Column).Width := 96;
Add('City');
end;
with Items do
begin
h0 := AddItem('Nancy Davolio');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Andrew Fuller');
CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
SelectItem[h0] := True;
h0 := AddItem('Janet Leverling');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
h0 := AddItem('Margaret Peacock');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Redmond';
h0 := AddItem('Steven Buchanan');
CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Michael Suyama');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Robert King');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Laura Callahan');
CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Anne Dodsworth');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
end;
EndUpdate();
end
|
|
716
|
While using the filter prompt is it is possible to use wild characters
with AxGantt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
ColumnAutoResize := True;
ContinueColumnScroll := False;
MarkSearchColumn := False;
SearchColumnIndex := 1;
FilterBarPromptVisible := True;
FilterBarPromptType := EXGANTTLib.FilterPromptEnum.exFilterPromptPattern;
FilterBarPromptPattern := 'lon* seat*';
with Columns do
begin
(Add('Name') as EXGANTTLib.Column).Width := 96;
(Add('Title') as EXGANTTLib.Column).Width := 96;
Add('City');
end;
with Items do
begin
h0 := AddItem('Nancy Davolio');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Andrew Fuller');
CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
SelectItem[h0] := True;
h0 := AddItem('Janet Leverling');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
h0 := AddItem('Margaret Peacock');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Redmond';
h0 := AddItem('Steven Buchanan');
CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Michael Suyama');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Robert King');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Laura Callahan');
CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Anne Dodsworth');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
end;
EndUpdate();
end
|
|
715
|
How can I list all items that contains any of specified words, not necessary at the beggining
with AxGantt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
ColumnAutoResize := True;
ContinueColumnScroll := False;
MarkSearchColumn := False;
SearchColumnIndex := 1;
FilterBarPromptVisible := True;
FilterBarPromptType := Integer(EXGANTTLib.FilterPromptEnum.exFilterPromptStartWords) Or Integer(EXGANTTLib.FilterPromptEnum.exFilterPromptContainsAny);
FilterBarPromptPattern := 'london davolio';
with Columns do
begin
(Add('Name') as EXGANTTLib.Column).Width := 96;
(Add('Title') as EXGANTTLib.Column).Width := 96;
Add('City');
end;
with Items do
begin
h0 := AddItem('Nancy Davolio');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Andrew Fuller');
CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
SelectItem[h0] := True;
h0 := AddItem('Janet Leverling');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
h0 := AddItem('Margaret Peacock');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Redmond';
h0 := AddItem('Steven Buchanan');
CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Michael Suyama');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Robert King');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Laura Callahan');
CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Anne Dodsworth');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
end;
EndUpdate();
end
|
|
714
|
How can I list all items that contains any of specified words, not strings
with AxGantt1 do
begin
BeginUpdate();
ColumnAutoResize := True;
ContinueColumnScroll := False;
Chart.PaneWidth[True] := 0;
MarkSearchColumn := False;
SearchColumnIndex := 1;
FilterBarPromptVisible := True;
FilterBarPromptType := Integer(EXGANTTLib.FilterPromptEnum.exFilterPromptWords) Or Integer(EXGANTTLib.FilterPromptEnum.exFilterPromptContainsAny);
FilterBarPromptPattern := 'london nancy';
with Columns do
begin
(Add('Name') as EXGANTTLib.Column).Width := 96;
(Add('Title') as EXGANTTLib.Column).Width := 96;
Add('City');
end;
with Items do
begin
h0 := AddItem('Nancy Davolio');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Andrew Fuller');
CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
SelectItem[h0] := True;
h0 := AddItem('Janet Leverling');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
h0 := AddItem('Margaret Peacock');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Redmond';
h0 := AddItem('Steven Buchanan');
CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Michael Suyama');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Robert King');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Laura Callahan');
CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Anne Dodsworth');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
end;
EndUpdate();
end
|
|
713
|
How can I list all items that contains all specified words, not strings
with AxGantt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
ColumnAutoResize := True;
ContinueColumnScroll := False;
MarkSearchColumn := False;
SearchColumnIndex := 1;
FilterBarPromptVisible := True;
FilterBarPromptType := Integer(EXGANTTLib.FilterPromptEnum.exFilterPromptWords) Or Integer(EXGANTTLib.FilterPromptEnum.exFilterPromptContainsAll);
FilterBarPromptPattern := 'london robert';
with Columns do
begin
(Add('Name') as EXGANTTLib.Column).Width := 96;
(Add('Title') as EXGANTTLib.Column).Width := 96;
Add('City');
end;
with Items do
begin
h0 := AddItem('Nancy Davolio');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Andrew Fuller');
CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
SelectItem[h0] := True;
h0 := AddItem('Janet Leverling');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
h0 := AddItem('Margaret Peacock');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Redmond';
h0 := AddItem('Steven Buchanan');
CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Michael Suyama');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Robert King');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Laura Callahan');
CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Anne Dodsworth');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
end;
EndUpdate();
end
|
|
712
|
I've noticed that the filtering by prompt is not case sensitive, is is possible to make it case sensitive
with AxGantt1 do
begin
BeginUpdate();
ColumnAutoResize := True;
ContinueColumnScroll := False;
MarkSearchColumn := False;
SearchColumnIndex := 1;
FilterBarPromptVisible := True;
FilterBarPromptType := Integer(EXGANTTLib.FilterPromptEnum.exFilterPromptCaseSensitive) Or Integer(EXGANTTLib.FilterPromptEnum.exFilterPromptContainsAny);
FilterBarPromptPattern := 'Anne';
Chart.PaneWidth[True] := 0;
with Columns do
begin
(Add('Name') as EXGANTTLib.Column).Width := 96;
(Add('Title') as EXGANTTLib.Column).Width := 96;
Add('City');
end;
with Items do
begin
h0 := AddItem('Nancy Davolio');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Andrew Fuller');
CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
SelectItem[h0] := True;
h0 := AddItem('Janet Leverling');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
h0 := AddItem('Margaret Peacock');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Redmond';
h0 := AddItem('Steven Buchanan');
CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Michael Suyama');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Robert King');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Laura Callahan');
CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Anne Dodsworth');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
end;
EndUpdate();
end
|
|
711
|
Is it possible to list only items that ends with any of specified strings
with AxGantt1 do
begin
BeginUpdate();
ColumnAutoResize := True;
ContinueColumnScroll := False;
MarkSearchColumn := False;
SearchColumnIndex := 1;
FilterBarPromptVisible := True;
FilterBarPromptType := EXGANTTLib.FilterPromptEnum.exFilterPromptEndWith;
FilterBarPromptColumns := '0';
FilterBarPromptPattern := 'Fuller';
Chart.PaneWidth[True] := 0;
with Columns do
begin
(Add('Name') as EXGANTTLib.Column).Width := 96;
(Add('Title') as EXGANTTLib.Column).Width := 96;
Add('City');
end;
with Items do
begin
h0 := AddItem('Nancy Davolio');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Andrew Fuller');
CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
SelectItem[h0] := True;
h0 := AddItem('Janet Leverling');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
h0 := AddItem('Margaret Peacock');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Redmond';
h0 := AddItem('Steven Buchanan');
CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Michael Suyama');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Robert King');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Laura Callahan');
CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Anne Dodsworth');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
end;
EndUpdate();
end
|
|
710
|
Is it possible to list only items that ends with any of specified strings
with AxGantt1 do
begin
BeginUpdate();
ColumnAutoResize := True;
ContinueColumnScroll := False;
MarkSearchColumn := False;
SearchColumnIndex := 1;
FilterBarPromptVisible := True;
FilterBarPromptType := EXGANTTLib.FilterPromptEnum.exFilterPromptEndWith;
FilterBarPromptColumns := '0';
FilterBarPromptPattern := 'Fuller';
Chart.PaneWidth[True] := 0;
with Columns do
begin
(Add('Name') as EXGANTTLib.Column).Width := 96;
(Add('Title') as EXGANTTLib.Column).Width := 96;
Add('City');
end;
with Items do
begin
h0 := AddItem('Nancy Davolio');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Andrew Fuller');
CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
SelectItem[h0] := True;
h0 := AddItem('Janet Leverling');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
h0 := AddItem('Margaret Peacock');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Redmond';
h0 := AddItem('Steven Buchanan');
CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Michael Suyama');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Robert King');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Laura Callahan');
CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Anne Dodsworth');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
end;
EndUpdate();
end
|
|
709
|
Is it possible to list only items that starts with any of specified strings
with AxGantt1 do
begin
BeginUpdate();
ColumnAutoResize := True;
ContinueColumnScroll := False;
MarkSearchColumn := False;
SearchColumnIndex := 1;
FilterBarPromptVisible := True;
FilterBarPromptType := EXGANTTLib.FilterPromptEnum.exFilterPromptStartWith;
FilterBarPromptColumns := '0';
FilterBarPromptPattern := 'An M';
Chart.PaneWidth[True] := 0;
with Columns do
begin
(Add('Name') as EXGANTTLib.Column).Width := 96;
(Add('Title') as EXGANTTLib.Column).Width := 96;
Add('City');
end;
with Items do
begin
h0 := AddItem('Nancy Davolio');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Andrew Fuller');
CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
SelectItem[h0] := True;
h0 := AddItem('Janet Leverling');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
h0 := AddItem('Margaret Peacock');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Redmond';
h0 := AddItem('Steven Buchanan');
CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Michael Suyama');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Robert King');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Laura Callahan');
CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Anne Dodsworth');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
end;
EndUpdate();
end
|
|
708
|
Is it possible to list only items that starts with specified string
with AxGantt1 do
begin
BeginUpdate();
ColumnAutoResize := True;
ContinueColumnScroll := False;
MarkSearchColumn := False;
SearchColumnIndex := 1;
FilterBarPromptVisible := True;
FilterBarPromptType := EXGANTTLib.FilterPromptEnum.exFilterPromptStartWith;
FilterBarPromptColumns := '0';
FilterBarPromptPattern := 'A';
Chart.PaneWidth[True] := 0;
with Columns do
begin
(Add('Name') as EXGANTTLib.Column).Width := 96;
(Add('Title') as EXGANTTLib.Column).Width := 96;
Add('City');
end;
with Items do
begin
h0 := AddItem('Nancy Davolio');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Andrew Fuller');
CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
SelectItem[h0] := True;
h0 := AddItem('Janet Leverling');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
h0 := AddItem('Margaret Peacock');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Redmond';
h0 := AddItem('Steven Buchanan');
CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Michael Suyama');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Robert King');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Laura Callahan');
CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Anne Dodsworth');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
end;
EndUpdate();
end
|
|
707
|
How can I specify that the list should include any of the seqeunces in the pattern
with AxGantt1 do
begin
BeginUpdate();
ColumnAutoResize := True;
ContinueColumnScroll := False;
MarkSearchColumn := False;
SearchColumnIndex := 1;
FilterBarPromptVisible := True;
FilterBarPromptType := EXGANTTLib.FilterPromptEnum.exFilterPromptContainsAny;
FilterBarPromptPattern := 'london seattle';
Chart.PaneWidth[True] := 0;
with Columns do
begin
(Add('Name') as EXGANTTLib.Column).Width := 96;
(Add('Title') as EXGANTTLib.Column).Width := 96;
Add('City');
end;
with Items do
begin
h0 := AddItem('Nancy Davolio');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Andrew Fuller');
CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
SelectItem[h0] := True;
h0 := AddItem('Janet Leverling');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
h0 := AddItem('Margaret Peacock');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Redmond';
h0 := AddItem('Steven Buchanan');
CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Michael Suyama');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Robert King');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Laura Callahan');
CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Anne Dodsworth');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
end;
EndUpdate();
end
|
|
706
|
How can I specify that all sequences in the filter pattern must be included in the list
with AxGantt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
ColumnAutoResize := True;
ContinueColumnScroll := False;
MarkSearchColumn := False;
SearchColumnIndex := 1;
FilterBarPromptVisible := True;
FilterBarPromptType := EXGANTTLib.FilterPromptEnum.exFilterPromptContainsAll;
FilterBarPromptPattern := 'london manager';
with Columns do
begin
(Add('Name') as EXGANTTLib.Column).Width := 96;
(Add('Title') as EXGANTTLib.Column).Width := 96;
Add('City');
end;
with Items do
begin
h0 := AddItem('Nancy Davolio');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Andrew Fuller');
CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
SelectItem[h0] := True;
h0 := AddItem('Janet Leverling');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
h0 := AddItem('Margaret Peacock');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Redmond';
h0 := AddItem('Steven Buchanan');
CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Michael Suyama');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Robert King');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Laura Callahan');
CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Anne Dodsworth');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
end;
EndUpdate();
end
|
|
705
|
How do I change at runtime the filter prompt
with AxGantt1 do
begin
BeginUpdate();
ColumnAutoResize := True;
ContinueColumnScroll := False;
Chart.PaneWidth[True] := 0;
MarkSearchColumn := False;
SearchColumnIndex := 1;
FilterBarPromptVisible := True;
FilterBarPromptPattern := 'london manager';
with Columns do
begin
(Add('Name') as EXGANTTLib.Column).Width := 96;
(Add('Title') as EXGANTTLib.Column).Width := 96;
Add('City');
end;
with Items do
begin
h0 := AddItem('Nancy Davolio');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Andrew Fuller');
CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
SelectItem[h0] := True;
h0 := AddItem('Janet Leverling');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
h0 := AddItem('Margaret Peacock');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Redmond';
h0 := AddItem('Steven Buchanan');
CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Michael Suyama');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Robert King');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Laura Callahan');
CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Anne Dodsworth');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
end;
EndUpdate();
end
|
|
704
|
How do I specify to filter only a single column when using the filter prompt
with AxGantt1 do
begin
BeginUpdate();
ColumnAutoResize := True;
ContinueColumnScroll := False;
Chart.PaneWidth[True] := 0;
MarkSearchColumn := False;
SearchColumnIndex := 1;
FilterBarPromptVisible := True;
FilterBarPromptColumns := '2,3';
FilterBarPromptPattern := 'london';
with Columns do
begin
(Add('Name') as EXGANTTLib.Column).Width := 96;
(Add('Title') as EXGANTTLib.Column).Width := 96;
Add('City');
end;
with Items do
begin
h0 := AddItem('Nancy Davolio');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Andrew Fuller');
CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
SelectItem[h0] := True;
h0 := AddItem('Janet Leverling');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
h0 := AddItem('Margaret Peacock');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Redmond';
h0 := AddItem('Steven Buchanan');
CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Michael Suyama');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Robert King');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Laura Callahan');
CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Anne Dodsworth');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
end;
EndUpdate();
end
|
|
703
|
How do I change the prompt or the caption being displayed in the filter bar
with AxGantt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
ColumnAutoResize := True;
ContinueColumnScroll := False;
MarkSearchColumn := False;
SearchColumnIndex := 1;
FilterBarPromptVisible := True;
FilterBarPrompt := 'changed';
with Columns do
begin
(Add('Name') as EXGANTTLib.Column).Width := 96;
(Add('Title') as EXGANTTLib.Column).Width := 96;
Add('City');
end;
EndUpdate();
end
|
|
702
|
How do I enable the filter prompt feature
with AxGantt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
ColumnAutoResize := True;
ContinueColumnScroll := False;
MarkSearchColumn := False;
SearchColumnIndex := 1;
FilterBarPromptVisible := True;
with Columns do
begin
(Add('Name') as EXGANTTLib.Column).Width := 96;
(Add('Title') as EXGANTTLib.Column).Width := 96;
Add('City');
end;
with Items do
begin
h0 := AddItem('Nancy Davolio');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Andrew Fuller');
CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
SelectItem[h0] := True;
h0 := AddItem('Janet Leverling');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
h0 := AddItem('Margaret Peacock');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'Redmond';
h0 := AddItem('Steven Buchanan');
CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Michael Suyama');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Robert King');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
h0 := AddItem('Laura Callahan');
CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
CellCaption[TObject(h0),TObject(2)] := 'Seattle';
h0 := AddItem('Anne Dodsworth');
CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
CellCaption[TObject(h0),TObject(2)] := 'London';
end;
EndUpdate();
end
|
|
701
|
Is it possible to colour a particular column, I mean the cell's foreground color
with AxGantt1 do
begin
BeginUpdate();
with ConditionalFormats.Add('1',Nil) do
begin
ForeColor := $ff;
ApplyTo := EXGANTTLib.FormatApplyToEnum($1);
end;
MarkSearchColumn := False;
with Columns do
begin
Add('Column 1');
Add('Column 2');
end;
with Items do
begin
CellCaption[TObject(AddItem(TObject(0))),TObject(1)] := TObject(1);
CellCaption[TObject(AddItem(TObject(2))),TObject(1)] := TObject(3);
CellCaption[TObject(AddItem(TObject(4))),TObject(1)] := TObject(5);
end;
EndUpdate();
end
|